Fix defvar equivalent expression.

diff --git a/lispref/variables.texi b/lispref/variables.texi
index dbc922a8bd8eeef1f2a357b028655b48085098fa..c3bd61541d8a143ce11205faba07dbff11c37eba 100644 (file)
--- a/lispref/variables.texi
+++ b/lispref/variables.texi
@@ -484,7 +484,8 @@ Here is an equivalent expression for the @code{defvar} special form:
 (progn
   (if (not (boundp '@var{symbol}))
       (setq @var{symbol} @var{value}))
-  (put '@var{symbol} 'variable-documentation '@var{doc-string})
+  (if '@var{doc-string}
+    (put '@var{symbol} 'variable-documentation '@var{doc-string}))
   '@var{symbol})
 @end group
 @end example